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:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

$* ALL RIGHTS RESERVED. 

i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY RDANCE WITH THE TERMS OF H LICENSE AND WITH THE 
:* IN OTIC OF TWARE Y OTHER 
3* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeRPORAT on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


LIT 
S NOT SUPPLIED BY DIGITAL. 
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++ 
FACILITY: SATS SYSTEM SERVICE TESTS 


; ABSTRACT: The SATSSF17 module tests the execution of the following 
; VMS system services, invoked in such a way as to expect failing 
; status codes: 
; SINPUT Hy 
; SOUTPUT 
; $Q10 

$Q10W 


ENVIRONMENT: User mode image; needs CMKRNL privilege, 
dynamically acquires other privileges, as needed. 


; AUTHOR: Larry D. Jones, CREATION DATE: OCTOBER, 1979 
; MODIFIED BY: 


v03-001 LDJ0001 Larry D. Jones 17-Sep-1980 
Modified to conform to new build command procedures. 
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ow 
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A 

.SBTTL DECLARATIONS 

; MACRO LIBRARY CALLS 

; SPRVDEF civilege definition 
P message es 

TEXT 
aA PCB definit ons 
; STS definitions 


Seeee 
“” 
nw 
a 
@ 
~~ 
| 
°o 
2 
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; Equated symbols 


0000 WARNING = 0 ; warning severity value for msgs 
0001 SUCCESS =] : success . 9 
4 ERROR = ¢ : oe oe oe oe 
000 z : ta teraetion " “ Beye sae 
0004 SEVERE = 4 ; fa a ” ester 
0001 PRVHND_SXV40 = 1 ; page 0 address for SETEXV 
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D 16 
SATSSF17 = SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 01:41: AX/VMS Macro v04-00 P 
V04-000 OWN STORAGE ~SEb=1984 busdeios LuetPrsrcasarsse i? mar:1 29° Gy 
-SBTTL OWN STORAGE 
0000 : : «PSECT RODATA,RD,NOWRT,NOEXE,LONG 
TEST_MOD_NAME : 
37 31 46 53 53 54 41 53 90" : 8 “  TASCIC + /SATSSF17/ ; needed for SATSMS message 
0 0 TEST_MOD_NAME_D: 
46 53 53 54 41 53 00000011"0105 9099" 99 HF “  TASCIG /SATSSF17/ ; module name 
19 TEST_MOD_BEGIN: 
6E 75 67 65 62 89° i Hd “  TASCIC + /begun/ 
1F ge TEST_MOD_SUCC: 
6C 75 66 73 73 65 63 63 75 73 a” at 5 ~ASCIC /successful/ 
02A 6 TEST_MOD_FAIL: 
64 65 6C 69 61 66 go" } rn 8 sASCIC /failed/ 
8 1 88 INPUT: 
54 55 50 4E 49 69" i ! 89 SCIC /INPUT/ 
0037 90 OUTPUT: 
54 55 50 54 55 4F 00° 0037 91 eASCIC /OUTPUT/ 
06 0037 
003E 3 alo 
4F 49 51 8" OO3E 9 eASCIC /Q10/ 
03 003 
004 94 Q10W: 
57 4F 49 51 00° 004 95 eASCIC /Q10W/ 
04 004 
004 96 INADR 
00000000'00000000' Oper 44 ibe «LONG NOACCESS,NOACCESS ; page address of noaccess psect 
00000000' Soc 99 «LONG PRTSC_NA 3; protection code for no access psect 
0033 130 Peyem..ses! + ; read only access location 
21 20 74 73 65 54 99000058" 91069000" 005 102 : -ASCID \Test !AC service name !AC step !UL failed.\ 
6E— 20 $ 63 69 6 72 65 73 20 43 41 0061 
70 65 74 73 20 43 41 $) 20 $2 6D $} 06D 
2E 64 65 6C 69 61 66 20 4C 55 21 20 ths 108 cals 
74 63 65 70 78 45 99000080"910 9009" o83 104 : -ASCID \Expected !AS = !XL received !AS = !XL\ 
sf 34 3) gb gb $0 23 a1 gi gt 65 3 OUp 
ERRRE SH Be 
4 rH 65 70 4: 45 2 000 "9}06 9009" 8 eASCID \Expected !AS'UB = !XL received !AS!'UB = !XL\ 
20 3D 60 Py: 5 3 41 21 20 64 C 
e $3 6 g $2 g 72 ° 4C 58 21 ce 
8 21 20 3D 20 42 55 21 41 21 ce oP 
—5 107 EXP: 
73 75 74 61 74 73 000000ED'010E0000' 6 3 133 -ASCID \status\ 
F 1 MBNAM : 
54 54 000000FB'010E0000' OOF 110 eASCID \TT\ 


SATSSF17 = SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 01:41: AX/VMS Macro v04-00 Page 4. 
9042000 OWN STORAGE ge 1382 355/98 UETP.SRCJSATSSF17.MAR;1 . (1). 
FD 116 $ 
F 11 -SBTTL R/W PSECT 
0000 13 -PSECT RWDATA,RD,WRT,NOEXE,LONG 
116 TPID: 
00000000 11 «LONG 0 ; PID for this process 
4 113 CURRENT_TC: 
00000000 4 11 » LON 0 ; ptr to current test case 
120 ALIGN LONG 
121 REG_SAVE_AREA: 
00000044 0 1 § ~ BLK 5 3; register save area 
44 1235 MOD_MSG_CODE: 
00748009 bee : : cm a ee UETPS_SATSMS ; test module message code for putmsg 
00000000' rk: 1 § ‘i ADDRESS TEST_MOD_NAME 
004C 127 TMD_ADDR: 
00000019' bne 1 8 ADDRESS TEST_MOD_BEGIN 
Be 1 PRVPRT: 
00 8 5 130 -BYT 0 3 protection return byte for SETPRT 
051 131 PRIVMASK: 
00000000 00000000 0051 1 § . 0 3; priv. mask 
ts 133 CHM_CONT: 
00000000 0059 134 «LONG 0 ; change mode continue address 
005D 135 RETADR: 
00000065 Ba28 138 P et Ree 3; returned address's from SETPRT 
0065 138 SINPUT 0,0,0 ; INPUT parameter List 
0088 139 OUT: 
0088 140 SOUTPUT 0,0,0 ; OUTPUT parameter List 
QOAD 141 QIOP: 
QOAD 146 $Q10 -1,0,10$_READVBLK,0,0,0,MBNAM,0 ; QIO parameter List 
Q0E1 1435 QI0wP: 
pees Vee $Q10W <-1,0,10$_READVBLK,0,0,0,MBNAM,0 ; QIOW parameter List 
oi 146 REG: 
74 73 69 67 65 72 000001199 1059009" 11 147 -ASCID \register R\ 
52 20 72 65 01 
1 148 REGNUM: 
00000000 0127 149 «LONG 0 ; register number 
12B 150 MSGL: 
0000005 128 = =151 -LONG 80 3; buffer desc. 
00000133 : F 13 — ADDRESS BUF 
00000183 01 13 -BLKB 80 
18 155 MESSAGEL: 
00000008 1 138 - LON 0 3 message desc. 
00000133" 01 15 ADDRESS BUF 
1 138 SERV_NAME : 
00000000 0188 159 «LONG 0 i; service name pointer 
18F 160 MBCHAN: 
0000 018F 161 -WORD O 3; channel location 


F 16 
SATSSF17 = SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 01:41: AX/VMS Macro V04-00 Page 
v0u=000 R/W PSECT B7SEb=19b6 Oas30:98 PORTE SRCSSATSSe 17 man: 1 
00 163 -PSECT SATS ACC 1,RD,WRT,NOEXE , PAGE 
00000200 190 EMPTY: 419 - 3 reserve a page of space 
166; + 
187 3 LARBARAAAAAALSALALLLALLLALEELE SEES SESE SESE SERA S SESE EEE EES EEE Ea 
68 ; * % 
197 ; * THE genre OF STATERENTS yn THIS PSECT IS CRITICAL. * 
170 ; * DO NOT RE-ARRANGE THE VARIABL 5, CONSULT SATS % 
171 3; * FUNCTIONAL SPECIFICATION FOR A DESCRIPTION OF THE USE * 
9 Ife ; : OF THE EMPTY PSECT (AND ITS COMPANION PSECT, NOACCESS). : 
8 1 : PARRA RARASASLALALALALASALSALSEELE EERE ESE EEE EEE EEE E AREER CSREES ERE 
1 2 
» 
000001FF $0 155 BRVHND ~SXV42 *, 27 ; prvhnd arg for SETEXV (last byte in the page) 
000001F3 tty 18 - 2,2 13 ; allow room for string descriptor 
1F 179 ; type AAAAA_ sore ‘ofl here: 
0000006 Bi 180 G 3; string Length (will cross psect boundary) 
000001FB* O1F 181 DRESS .+4 ; string address 
O1FB 1 3 3 type AAAAA _sssis- o here: 
OOOCOIFC OI1FB 18 ; low-order byte of string Length 
yee 133 3 type AAAAA_SSSK2 go here: 
00000200 O1FC 185 -BLKL 1 ; string length 
0200 186; 
0 4 187 ; 
020 188 ; 
8 00 189; 
00000000 190 -PSECT SATS acct. 2,RD,WRT,NOEXE , PAGE 
44 t44 0000 191 NOACCESS: -BLK KB 51 ; reserve a page of spac 
00000000 0200 136 - 512 ; return loc ctr to pooianing of psect 
00000000" yO0O0 19 “ADDR RESS EMPT eeerens of accessible string 
00000000" ih 133 ADDRESS EMPTY /*K1 0 ; address of accessible string 
0008 138 3; *** NOTE == DO NOT CHANGE Loca iON OR ay py OF ABOVE ee Sy 
44 197 ; tee THIS PSECT (NOACCESS) MUST APPEAR IN MEMORY IMMEDIATELY 
00 198 ; tee FOLLOWING THE EMPTY PSECT. PSECT NAMES AND OPTIONS WILL BE 
84 + 5 ee CHOSEN TO FORCE THE DESIRED PSECT ORDERING. 
900 64 3 
000 0S 3 
000 03 ; 
0008 04 ; 


STEM SERVICE TESTS (FAILING S. i o-1 880 91333 :98 pases 8 gre. vor 


»PSECT SATSSE] 7 -RD.WRT EXE .LONG 
-SBTTL SATSSF1 


p++ 
; FUNCTIONAL DESCRIPTION: 


00 Page | 


SATSSF17 - SATS - 
v04=000 R/W PSE 7.MAR; 1 


0000 


OOOCCoCeoo oom 


SSSSSSSSSSSSSSSSS -~< 


After performing gone initial gowsengeg°8. such as 
printing the module begin message and acquiring needed privileges, 
; the ors em services ory Sested n each of their failure conditions. 
Detected failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 


CALLING SEQUENCE: 


! ; $ RUN SATSSF17 ... (DCL COMMAND) 
0 : INPUT PARAMETERS: 
88 : 3 
0 4; none 
0000 5; 
444 § 3 IMPLICIT INPUTS: 
000 3 
0000 8 3 none 
0000 3 
0000 0 ; OUTPUT PARAMETERS: 
0000 1; 
8006 § 3 none 
000 : 
4 ¢ 3; IMPLICIT OUTPUTS: 
0000 6; Messages to SYSSOUTPUT are the only output from SATSSF17. 
0900 t : They are of the form: 
000 35 : ZUETP-S-SATSMS, TEST MODULE SATSSF17 BEGUN ... (BEGIN MSG) 
0000 40 ; ZUETP-S-SATSMS, TEST MODULE SATSSF17 SUCCESSFUL ... (END MSG) 
0000 41 ; ZUETP=E-SATSMS, TEST MODULE SATSSF17 FAILED ... (END MSG) 
444 2g 3 ZUETP=I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 
$8 44 : COMPLETION CODES: 
0 46 : The SATSSF17 routine terminates with a $EXIT to the 
oo tf : operating system with a status code defined by UETPS$_SATSMS. 
000 49 : SIDE EFFECTS: 
000 1: none 
00 § ; 
$0 i 
Bad 2? 
000 35 TEST_START SATSSF17 ; let the test begin 
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.ENTRY SATSSF17,0 

CLRL © WACURRENT_TC 

PUSHL #0 
PUSHAL W*TPID 

CALLS #3 »G°SYS$UAKE 

CALLS #0,G*SYSSHIBER 
PUSHAQ wW*fEST aE NAME_D 

ALLS #1 .G°Svs SETPRN 

SB WAMOD_M 


B 
MOVAL W‘TEST mos SUCC, oW*TMD_ADDR 
INSV gsuccess, 40 W*MOD_ASG_CODE 


PUSHL 
CALLS #1,W*REG_SAVE 
SSETPRT_S Na pe a RETADR=W°RETADR, 


T=W*PROT, PRVPRT=W* PRVPRT ; set noaccess psect 
3 ee. for no user access 
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3 ~SBTTL INPUT TESTS 


; SINPUT tests 
: test for an EFN of -1 


MOVAL W*INPUT,W*SERV_NAME 
SCREMBX_S LOGNAM=W“MBNAM, - 


CH 
SINPUT CHAN = W*MBCHAN,=- 
ER= 


3; set the service name 
; get a legal channel number 


EFN = it ; try EFN = =1 
: theck failure 


MOVL 4 »W*CURRENT_TC 


CALLS i nOChaNe SAVE 
SINPUT mirre = WAMBCHA 


; try illegal EFN = 500 


0 
FAIL ones «Ss ibcerc ; check failure 
#Ss$ E 


ILLEFC 
CALS »W*REG_CHECK 


; test for an EFN of 123 without an associated cluster 
: NEXT_TEST 


MOVL £6 WOCURRENS TE 
P # 


CALLS #1,W*REG_SAVE 
SINPUT a W“MBCHAN;~ 


; try EFN =123 

FAIL_CHECK S38. UNA ig 3; check failure 
PUSH i nUNASEFC 

i CALLS W"REG_CHECK 


: test unaccessable IOSB parameter = page 0 access 
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S 3 
4 ;- 
Be ane 


STP3: 


1 
4 


n- 


0004 'CF 


MOVL, #3, W*CURRENT_TC | 
0953'CF 


CALLS #1,W*REG_SAVE 
SINPUT CHAN = W*MBCHAN?= 
OSB = W*PRVHND. SXV40,- 


ooo 
Ow 
“OOo 
wove 


BUFFER= W*MBNAM 3; try page 0 access 
FAIL_CHECK 68. ACCV 0 : check Veilure 

PUSHL #SS$_ACCVIO | 
CALLS #1,W*REG_CHECK 


=o 


095D'CF 


oo 


; test unaccessable 10SB parameter = read-only PSECT 
’ NEXT_TEST 


0004 °CF 
0953'CF 


MOVL #4,W*CURRENT_TC 

PUSHL # 

CALLS #1,W*REG_SAVE 

7 SINPUT CHAN = W“MBCHAN,- 

8 10SB = W*PRVHND_SXV41,- | 

) LENGTH= #0,- 

? W*MBNAM 3 try read-only PSECT 
| 
| 


04 00 
00 dD 
01 FB 


BUF FER= 
FAIL_CHECK SS$_ACCVIO ; check failure 
PUSHL #SS$_ACCVIO 


oc DD 
CALLS #1,W*REG_CHECK 


095D'CF 
:+ 


38 
: : test unaccessable IO0SB parameter = noaccess protection 
6 
7 


NEXT_TEST 


STP5: 
0004 'CF 


0953'CF 


MOVL #5 ,W“CURRENT_TC 


PUSHL 

CALLS #1,W*REG_SAVE 

8 SINPUT CHAN = W*MBCHAN7- 

3 10SB = W*PRVHND. SXV42,- 
31 

2 


05 00 
00 dD 
01 =FB 


LENGTH= #0, 
BUFFER= W“°MBNAM 3; try nogcceas BUFFER param. 
FAIL_CHECK SS$_ACCVIO ; check failure 
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NEXT_TEST 
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vou2000 INPUT TESTS g7SEF 1386 84 £33; 8 UETP.SRCIJS ATSS $F17. MAR; 1 . (3) 
18 
18 STP6: 
0004 'CF 44 18 poy 6. »W*CURRENT_TC 
0953'°CF 1 FB Q1B9 CA tts " pW"REG SAVE 
1BE 39 SDASSCN S CHAN = w*MBCHAN ; deassign the channel 
1CA 40 SINPUT eta = WMBCHAN, = 
1CA 4 BUFFER= W*MBNAM,=- | 
1CA 4 LENGTH= 7s. 3; try illegal channel 
1E9 4 FAIL. CHECK $55. NOPR ; check the failure 
se DD O1E9 PUSH #sS8.N PRIV 
095D'CF 1 FB OTE CALLS UPREG. CHECK 
1F 44 ;+ 
1F 45 ; 
1F rh ; test illegal channel number 
1F 47 ; 
1F 48 ;- | 
4 49 NEXT_TEST 
1F | 
\r8 STP7: 
0004 'CF 07 vO OTF MOVL #7,W*CURRENT_TC 
00 DD pire PUSH 
0953'CF 01 FB OIF CALLS #1,W*REG_SAVE 
O18F'CF D4 OFC 50 CLRL W*MBCHAN ; make an illegal channel number 
0200 51 SINPUT CHAN = W*MBCHAN,- 
0200 26 BUFFERS W*MBNAM, = 
0200 5 LENG #0 3; try illegal channel number 
O21F 54 FAIL ~CHECK osg, IVCHA 3; check failure 
0000013C 8F DD O2iF PUSHL 
095D'CF 01 FB 0225 CALLS #1 URE. CHECK 


| 
| 
| 
| 
#sss. IVCHAN | 
| 
| 
} 
' 
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SATSSF17 = SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 01:41: AX/VMS Macro V04-00 Page 11 | 
y042000 OUTPUT TESTS =$EE=1 382 8:33:98 UETP.SRCJSATSSF17.MAR;1 . (2) | 
A i .SBTTL OUTPUT TESTS 
A i+ | 
fh ; 
A 3 ; SOUTPUT tests 
A g ; test for an EFN of -1 
A 62 ; 
A ? i- 
. 4 NEXT_TEST 
A STPB: | 
0004 'CF , DO A MOVL 26 -UCURRENT._FE 
OD F PUSHL # 
0953'CF 1 FB 1 CALLS #1 ,W*REG SAVE 
018B'CF O037"CF DE 0236 65 MOVAL W*OUTPUT,W*SERV_NAME 3 set the service name 
i) + SCREMBX_S LOGNAM=W“MBNAM, - 
D 6 CHAN=W“MBCHAN ; get a legal channel number 
4 rt: SOUTPUT CHAN = W*MBCHAN,- 
0254 $ BUFFER = W*MBNAM,=- | 
0254 0 LENGTH = #0,- 
0254 71 EFN = #- 3 try EFN = -1 
8 79 =: 372 FAIL_CHECK SS$_ILLEFC ; check failure 
QOOOOOEC BF ODD 79 PUSHL  #SS$_ILLEFC 
095D'CF 01 FB O27F CALLS #1,W*REG_CHECK 
0284 73 3+ 
0284 74; | 
0284 75 ; test for an EFN of 500 
0284 76 ; 
0 sf 77 ;:- 
0284 378 NEXT_TEST 
0284 
0284 STP9: 
0004 'CF 09 pO 0284 MOVL #9 ,W*CURRENT_TC 
09 Dp 0389 PUSHL | 
0953'°CF 0 FB 8B CALLS #1 ,W*REG SAVE 
0290 79 SOUTPUT CHAN = W CHAN,=- 
0290 0 BUFFER = W*MBNAM, - 
9 1 LENGTH = “9 - 
9 Be EFN = #560 : try illegal EFN = 500 
028 8 FAIL_CHECK SS$_ILLEFC ; check failure 
QOOOOOEC 8F DD BS PUSHL #SS$_ILLEFC | 
095D'CF 1 FB i ros CALLS #1,W*REG_CHECK 
C 5; | 
: ( 3 test for an EFN of 123 without an associated cluster 
3 BE 
: NEXT_TEST 
C STP10 
0004 'CF OA 00 C MOVL #10,W*CURRENT_TC 
89 DD C PUSH # 
0953°CF 1 FB C CALLS #) ,W*REG SAVE 
cc 90 SOUTPUT CHAN = W“MBCHAR,=- 
fe tut = ye 
cc 38 EFN = 4133 > try EFN =123 
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F1 = 3394 FAIL =CHECK sss -UNAS é i check failure 
8 000234 f DD r} oi dak NASEFC 
095D'CF FB F ch Wirs # WPREG. CHECK 
sana | 
4: $7 ; test unaccessable IOSB parameter = page 0 access 
FC 38 :- 
4: 400 NEXT_TEST | 
FC STP11 i 
0004' CF dO ff MOVL ht. »W*CURRENT_TC 
DD 8 PUSHL 
O953'CF O01 FB CALLS vt WAREG SAVE 
0 401 SOUTPUT CHAN = CH. | 
0 re 10SB = W“PRVHND *Sxv40, - 
8 40 LENGTH = #0,- 
404 UFFER = W*MBNAM : try page 0 access 
0328 405 FAIL =CHECK SS$_ACCVIO 3; check failure 
OC DD 8 B PUSHL #SS$_ACCVIO 
O95D'CF 01 FB D CALLS #1,W*REG_CHECK 
0335 coe | 
° | 
b3 rt ; test unaccessable IOSB parameter = read-only PSECT 
0 410 ;- 
8 411 NEXT_TEST 
0 STP1l2: 
0004'CF OC DO O MOVL #12,W*CURRENT_TC 
00 odd O PUSHL # 
O953'CF 01 FB 0339 LLS a m3, SAVE 
8 E ret SOUTPUT CHA 
> Tar OSB = W"PRVHND. *SKV41, - 
O33E 414 LENGTH = Po 
O33E 415 BUFFER = W*MBNAM ; try read-only PSECT 
0361 416 FAIL =CHEEK SS$_ ACCV 0 : check failure 
OC OD 0361 PUSHL #SS$_ACCVIO 
O95D'CF O01 FB 6 CALLS #1,W*REG_CHECK 
ae 
8 ° ‘19 3; test unaccessable IOSB parameter = noaccess protection 
fi 
? 422 NEXT_TEST 
6 STP13 
0004'CF OD 00 6 MOVL #13,W*CURRENT_TC 
; 8 OD 60 PUSHL “ 
0953'CF 1 FB F CALLS @# Al REG SAVE 
4 423 SOUTPUT CHAN = W C 
74 = 424 IOSB = W*PRVHND *Sxv42, - 
74 «425 LENGTH = #0,- 
74 4 § BUFFER = W"RBNAM : try pogccess BUFFER param. 
97 4 FAIL_ CHEE Ss$ Actyi0 : check failure 
C 97 PUSHL ass Vv 
095D'CF #i,W 
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E 428 ;+ 
—E 429; 
3 ? : ; test non-existent channel number 
9E & § i- 
9 4 _ NEXT_TEST 
9E : 
9E STP14 
0004'CF 3 bO 9 MOVL #14,W*CURRENT_TC 
0 OD A PUSHL 
0953'CF 01 FB A CALLS fhm 4. SAVE 
AA rh $DASSGN_S CHAN = W*MBCHAN 3 deassign the channel 
B6 435 SOUTPUT” CHAN = W*MBCHAN,=- 
0386 $38 BUFFER = A papers = 
0 +] 4 LENGTH = 3 try illegal channel 
03D 438 FAIL_ CHECK SS$_ NOP RIV 3; check the failure 
24 DD 0307 PUSHL #SS$_NOPRIV 
O95D'CF 01 FB 9302 CALLS A UREG. CHECK 
3DE 439 ;+ 
O3DE 440 
O3DE 441 ; test illegal channel number 
O3DE ri : 
O3DE 443 ;- 
O3DE 444 NEXT_TEST 
O3DE 
O3DE STP15: 
0004°CF OF dO tt) MOVL #15,W*CURRENT_TC 
00 OD O3E PUSHL # 
09535'CF 01 FB O3E5 CALLS #1,W*REG_SAVE zs 
O18F'CF D4 Q3EA 445 CLRL W*MBCHAN 3 make an iilegal channel number 
paee 446 SOUTPUT CHAN = a oie ge - 
3EE 447 A, = W*MBNAM,- 
O3EE 448 LENGTH = = ; try illegal channel number 
O40F 44 FAIL ~CHECK oss. IVCHA : check failure 
0000013¢ 8F DD 040F PUSHL ases. IVCHAN 
O9S5SD°CF 1 FB 0415 CA its #1,W*REG_CHECK 


Ss iss ste 
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41A 451 .SBTTL QIO TESTS 
41A 452 ;+ 
441A 6455; 
41A 454 ; $QI10 tests 
41A 455 ; test for an EFN of 0 
41A +28 ; 
41A 457 ;:- 
O18B'CF OO3E'CF DE O41A 228 MOVAL W*QI0,W*SERV_NAME 3; set service name 
421 45 SCREMBX_S LOGNAM=W*MBNAM, - 
0421 460 CHAN=W“MBCHAN get a legal channel number 
OOBS'CF O18F'CF 3C 0438 461 MOVZWL W*MBCHAN,W*QIOP+QI0$_ CHAN ; set the channel number 
Be F 106 $Q10_S Shave W*MBCHAN 
43F 46 UNC=#10 READVBLK, - 
O43F 464 =W*MBNAM, = 
O43F 465 =#0,- 
O43F 466 EFN=# ; try EFN=0 
046 467 FAIL =fHECE S35. ILLEFC 3 shock failure 
QOOOOOOEC 8F DD 046 PUSHL ~ #SS$_ILLEFC 
O9S5D'CF 01 FB 046 CALLS #1,W*REG_CHECK 
046D 468 $Q10_G w*QloP 3s try 6 
0476 469 FAIL_CHECK SS$_ILLEFC : check failure 
OQOOOOOEC BF DD 476 PUSHL ~ #SS$_ILLEFC 
O95D'CF 01 FB 047C CALLS #1,W*REG_CHECK 
0481 470 ;+ 
0481 471; 
0481 +6 3; test for an EFN of 500 
0481 473; 
0481 474 ;- 
0481 475 NEXT_TEST 
0481 
0481 STP16: 
0004'CF 10 D0 0481 MOVL #16,W*CURRENT_TC 
00 DD 0486 PUSHL # 
0953'CF 01 FB 0488 CALLS #1 ,W*REG_SAVE 
048D 476 $Q10_S Sara W“MBCHAN,=- 
048D 477 FUNC=#10$ READVBLK, - 
048D 478 P1=W*MBNAM, - 
048D 479 pene - 
048D 480 EFN=#500 : try EFN=500 
0480 481 FAIL_ cm S38. HLL ere 3; check failure 
QOOOOOEC 8F DD 0480 oye 4 ty $_ILLEFC 
5D'CF 01 FB 04B6 a 1,W*REG_CHECK 
00B1'CF OOOO01F4 8F DO 0488 rt {| MOVL a2 swealOPsaros-eFN : a ijtesel EFN 
404 48 $Q10_G W . tr 
4CD 484 FAIL~ =twéck ie ILLERC r ther! failure 
QOOOOOEC 8F DD OQO4CD PUSHL SSS. ILLEFC 
095D'CF 01 FB 0403 CA rte th w* REG_CHECK 
4D re ¥ i+ 
4D8 486; 
Geb tH ; test for an EFN of 123 without an associated cluster 
4D 490 NEXT_TEST 
4D STP17 
0004'CF 11 D0 4D MOVL #17,W*CURRENT_TC 
00 ODD 0O4DD PUSHL #0 
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O953'CF 01 FB O4DF CALLS #1,W*REG_SAVE | 
4E4 491 $Q10_$ CHAN "MB - 
MEG 496 FUNC=#108_ READVBLK,- | 
4E4 49 P1=W*MBNAM, - 
Ques 494 P2=#0,- 
aE 495 EFN=#103 : try S$ 
507 496 FAIL_CHECK SS$_UNASEFC ; check failure 
00000234 8F oD 307 PUSHL ~ #SS$_UNASEFC 
O95D'CF. 01 FB 050D CALLS #1 ,W*REG_CHECK 
COB1'CF 00000078 8F dO 0512 497 MOVL  #123,W°QIOP+QI0S"EFN =; set illegal EFN 
0518 498 $Q10_G w*aloP : try .G 
2 4 499 FAIL_CHECK SS$_UNASEFC ; check failure 
00000234 8F 504 PUSHL ~ #SS$_UNASEFC 
O95D'CF 01 FB 052A CALLS #1,W*"REG_CHECK 
0081 'CF O52F 500 CLRL wW*QI0P+Q10$_EFN ; clean up illegal EFN 
0533 501 ;+ 
053 286 3 
053 5035 ; test unaccessable IOSB = page 0 access 
0533 9-504 ; 
0533 +505 :- 
0533 506 NEXT_TEST 
053 
053 STP18 
0004'CF 12 DO 0533 MOVL #18,W*CURRENT_TC 
00 DD 0538 PUSHL 
O953'CF O07 FB 053A CALLS #1,W*REG_SAVE 
O53F 507 $Q10_S CHAN=W*MBCHAN, - 
O53F 508 FUNC=#10$_ READVBLK,- 
053F 509 P1=W*MBNAM, - 
O53F 510 P2=#0,- 
053F 511 1OSB=W*PRVHND_SXV40 ; try Ss | 
0560 512 FAIL_CHECK SS$_ACCVIO : check failure 
0c DD 0560 PUSHL ~ #SS$_ACCVIO 
O95D'CF O71 FB 056¢ CALLS #1,W*REG_ CHECK 
OOBD'CF O001'CF DE 0567 513 MOVAL W*PRVHND_SXV40,W"QIOP+QI0$_I10SB ; set illegal address 
056E 514 $Q10_G w*QloP ; try 
0577 «515 FAIL-CHECK SS$_ACCVIO : check the failure 
0c op 0577 PUSHL ~ #SS$_ACCVIO 
O9S5D'cF O01 FB 0579 CALLS #1,W*REG_CHECK 
O57E 516 ;+ 
O57— 517; 
O57E 518 ; test unaccessable IOSB = read-only PSECT 
O57E 519; 
Baze 259 :- 
57E 1 NEXT_TEST 
057E 
57E STP19: 
0004'cF 13 DO 057 MOVL #19,W*CURRENT_TC 
00 pd 05 PUSHL 
O953'CF 01 FB 05 CALLS #1,W*REG_SAVE 
058A 5 : $Q10_S CHAN=W*MBCHAN,- 
58A FUNC=#10$_READVBLK,- 
58A 4 P1=W“MBNAM, - 
58A 5 P2=#0,- 
SBA 6 IOSB=W*PRVHND_SXV41 ; try _S 
5aB.CC*SS FAIL_CHECK SS$_ACCV10 : check failure 
Oc oD 05AB PUSHL ~ #SS$_ACCVIO 


TOE sss 


0004'CF 16 00 0648 MOVL #22,W*CURRENT_TC 
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095D' 01 FB OSA CALLS #1,W*REG_ CHECK 
OOBD' CF §053' cr DE ny § MOVAL W*PRVHND_SXV41,W*QIOP+GI10$_IOSB ; set 10SB adr 
58 $Q10_G W*QI0P ; try 
5¢ 0 FAIL_CHECK SS$_ACCVIO : check failure 
0c DD 5¢ PUSHL #SS$_ACCVIO 
O95D'CF 01 FB ate + se CALLS #1 ,W*REG_CHECK 
05C9 334 5 
8208 e% : test noaccess protection in I0SB 
5¢9 $e ; 
0509 535 :- 
E434 536 NEXT_TEST 
05¢9 STP20 
0004'CF 14 DO 05C9 MOVL #20,W*CURRENT_TC 
00 DD OSCE PUSH 
0953'CF 01 FB 05D0 ACLS #1 ,W*REG_SAVE 
0505 537 $Q10_S CHANSW*MBCA N,- 
0505 538 FUNC=#10$ READVBLK, = 
0505 539 P1=W*MBNAM, = 
0505 540 
0505 541 10S 5-0" PRVHND _SXV42 : try .S 
OSF6 542 FAIL_ ion es$_A ACCVIO™ 3; check failure 
0c DD OSF6 PUSHL #SS$_ACCVIO 
095D'CF 01 FB O5F8 CALLS #1 »W*REG_ CHECK 
OSFD 543 ;+ 
OSFD 544; 
OSFD 545 ; test non-existent channel number 
OSFD 546; 
OSFD 547 ;- 
O5FD 40548 NEXT_TEST 
OSFD 
OSFD STP21 
0004'CF 15 DO OSFD MOVL #21,W*CURRENT_TC 
00 DD 0602 PUSHL # 
0953'CF 01 FB 0604 CALLS #1 gl REG. SAVE 
0609 549 SDASSGN_S CHAN= W*MBCHA\ 3 release the channel 
0615 550 $Q10_S “CHAN=W“MBC CHANT 
0615 551 FUNC=#10$ READVBLK, = 
0615 826 P1=W*MBNAM, = 3 try -S 
0615 55 P2= #0. 
0634 554 FAIL_CHECK SS$_NOPRIV ; check failure 
24 DD 0634 PUSHL #SS$_NOPRIV 
O95D'CF 01 FB $36 CALLS #1 »W*REG_ CHECK 
638 555 $Q10_G wW* 3: try .G 
644 556 FAIL_CHECK SS$_NOPRIV 3; check failure 
sf DD 0644 PUSHL #SS$_NOPRIV 
095D'CF 1 FB 646 CALLS #1 »W™REG_ CHECK 
0648 557 ;+ 
064B 238 3 
0648 59 ; test illegal channel number 
0648 560; 
648 2) 3° 
648 562 NEXT_TEST 
648 
64B STP22: 
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0 DD 6 PUSHL # 
0953'°CF 8 FB £39 CALLS +1 .W*REG. SAVE 
OiBF'CF D& 06 63 CLRL  nesoen ; set illegal channel number 
658 64 $Q10_S CHAN=W*MBCHAN, = 
658 565 FUNC=#10 READVBLK , ~ 
658 96 P1=W*MBNAM, = 
658 28 Po #0 
67A 68 FAIL eae sss. IVCHA ; check failure 
0000013C 8F DD 067A #SS$.1V VCHAN 
O95D'CF O01 FB tt) CAL ts #1 ,W*REG_ CHECK 
OOBS'CF D4 068 569 CLRL uaiopvatos CHAN ; set illegal channel number 
0689 570 $Q10_G W*Q10P ; try 6 
0692 571 FAIL_CHECK SS$_IVCHAN ; check failure 
0000013C 8F DD 0692 PUSHL  #SS$_IVCHAN 
O95D'CF 01 FB 0698 CALLS #1,W*REG_CHECK 


—_—_—_—_— 


CALLS #1 W°REG_ SAVE 
$Ql0w_S “CHAN: =W°MBCHA 

UNC=#10$ READVBLK, « 
ha MBRAM 


599 
600 

601 : 
602 Pest 
604 
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69D 73 .SBTTL Q1OW TESTS 
69D 74 i+ 
69D 75 ; 
69D 6 ; $Q10W te 
69D 77 ; test "hy pe EFN of 0 
69D 4 3 
844 79 ;:- 
69D 80 NEXT_TEST 
0690 
844 STP23 
0004'CF 17 dO 69D MOVL ie oW*CURRENT_TC 
DD Bone PUSHL 
0953'CF 1 FB 6A4 CALLS m4 W*REG_SAVE 
018B'CF 0042°CF DE 06A9 581 MOVAL uarOW,wW SERV NARE : set service name 
0680 388 SCREMBX_S LOGNAM=4"MBRAM 
0680 58 CHAN=W* MB CHAN et a legal channel number 
OOE9S'CF O18F ‘CF 3C 06C7 584 MOVZWL W*MBCHAN, cate. chia ; set the channel number 
O6CE 28 $Q10W_S CHAN=W “MBCHA 
O6CE 586 FUNC=#10$ READVBLK, = 
O6CE 587 P1=W*MBNAM,- 
O6CE 588 =4#0,- 
O6Cct 589 EFN=#- 3 try EFN=0 
O6F 1 5906 FAIL_ see SS$_ILLEFC 3; check failure 
QOOOGOEC 8F DD O6F1 PUSHL #SS$_ILLEFC 
O95D'CF 01 FB O6F7 CAL ts #1,W*REG_ CHECK 
O6FC 591 fal 10W_G W*QI10WP 3 try .G 
0705 592 FAIL_CHECK SS$_ILLEFC ; check failure 
QOO0GOEC 8F DD 0705 PUSHL #SS$_ILLEFC 
095D'CF 01 FB 0708 CALLS #1,W"REG_CHECK 
0710 593 ;+ 
0710 594 ; 
0710 595 ; test for an EFN of 500 
0710 596; 
0710 597 ;- 
0710 598 NEXT_TEST 
0710 
0710 STP24 
0004'CF 18 DO 0716 MOVL #24,W*CURRENT_TC 
00 ODD 0715 PUSHL 
0953'CF 01 FB 0717 
071C 
071C 
071C 
87 C 
71C 
73F 
73°F 
745 
74A 
753 
75C 
if C 
586 
767 
767 
767 


DOACAOUIUIE SW tt SS SS SS 


EFN=#500 > try EFN=500 
FAIL =CHECE SS$_ILLEFC : check failure 
OQOOOOOEC 8F DD PUSHL #SS$_ILLEFC 
095D'CF 01 FB CALLS ofa nce CHECK 
OOES*CF QOO00001F4 BF 00 605 MOVL QIOWP+QI00$_EFN ; set illegal EFN 
606 $0 10W G O01 6uP > try 
60 FAIL ~CHECK SS$_ILLEFC 3; check failure 
OOOOOOEC 8F ODD PUSHL ~ #SS$_ILLEFC 
095D'C 01 F8 CALLS #1,W*REG_CHECK 
8 
ei9 : test for an EFN of 123 without an associated cluster 


~ 
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per Big NEXT TEST 
ef . 
. 767 STP25 
0004‘ CF 19 D0 167 MOVL i ,W*CURRENT_TC | 
O953'CF 01 FB 076 CALLS W*REG_SAVE 
0773 614 $Q10W_S “CHAN aw“nBtn HAN, = | 
0773 «615 UNC=#10$ READVBLK,= 
077 616 ae “MBNAM, = 
77361 P2=40 - 
77 618 EFN=#103 : try .S 
796 = 61 FAIL_ CHECK S$ UNASEFC : check failure 
gosness af op B38 EA FEstebtSEl cy 
OOES'CF 00000078 8F 00 Oat 620 OVE of an w*orouP+cions _EFN set illegal EFN 
PY 4 
07B3 692 FAIL CHECK  $S8_UNASEFC 5 check fetture 
00000234 8F oD 0783 PUSHL wit wr UNASEF C 
O95D'CF. 01 FB 07B9 CA iti: #1 ,W*REG CHECK 
OOES'CF D4 078 633 : CLRL WO TowP+alous _EFN : clean up illegal EFN 
07C¢ ose 3 
07C¢ 626 ; test unaccessable IOSB = page 0 access 
07¢ 627 : 
07C¢ 628 ;- 
0762 629 NEXT_TEST 
07¢ 
07C2 STP26 
0004'CF A v0 O7ce MOVE #26,W*CURRENT_TC 
0953'CF 01 FB 07¢9 CALLS #1,W*REG_SAVE 
O7CE 630 $al0w_s CHAN<W*RBCH HAN, - 
O7CE 631 FUNC=#10$ READVBLK. - 
O7CE 632 P1=W*MBRAM 
O7CE 63 =# 
O7CE 634 10S ae Pomel _SXV40 : try _S 
O7EF 635 FAIL CHECK Ss$_A ACCV V0" : check failure 
OC DD O7EF PUSHL HSS A CVI0 
O95D'CF 01 FB O7F1 CALLS #1,W*REG CHECK 
OOFI'CE ONOI'CF OE O7F6 636 MOVAL W°PRVHND_ Skv40" oeSE ro, 10SB ; set illegal address 
0806 ret FAIL “EHEC ape ACCVIO 3 chick the failure 
oc DD 806 #SS$_ACCVIO 
095D'CF 1 FB Oe ay as att: #1 ,W*REG_CHECK | 
800 40 | 
OD 641 ; test unaccessable IOSB = read-only PSECT 
80D yok : 
0D 64 . - ' 
Op 644 NEXT_TEST | 
OD STP27 | 
0004°CF 1B v0 Op MOVE 027, »W*CURRENT_TC 
0953'CF gf FB 18 CALLS #1,W*REG_SAVE 
19 645 $al0w_s ChAWs =W*MBCHAN, - 


SS aay 
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19 64 FUNC=#10$ enema 
1 ah: Pi =W*MBRAM | 
1 648 pos #0 
19 64 10SB= = Fav SXV41 ; try | 
A 650 FAIL. eS ose. ACCV 3 ter: failure 
OC DD A ne wACcVIO 
095D'CF 01 FB C ata W*REG_CHECK 
OOF 1'CF 0053'CF DE ae $3] et tor U-PRVHND. SKV41, “W*GL0UP+o10u8, I10SB ; set IOSB adr 
Baas 83g FAIL “the me ACCVIO : chock failure | 
0c DD 85 #SS$ A ACCVIO 
O95D'CF 01 FB Bee atte: th w* REG_CHECK 
5 654 ;+ 
nt 655 ; 
8 5 656 ; test noaccess protection in I0SB 
85 657 ;: 
085 658 ;- 
085 659 NEXT_TEST 
085 
0858 STP28 
0004 'CF 1C DO 0858 MOVL #28,W*CURRENT_TC 
00 OD 085D PUSHL @# 
0953'CF 01 FB O85F CAL ts #1 ,W°REG_ SAVE 
0864 660 $Q10W_S “CHANW*RBCH AN 
0864 661 UNC=#10$ READVBLK, a 
0864 66 rue =W*MBRAM, = 
0864 66 nat =f 
0864 664 SB=W*PRVHND _SXV42 : try .S 
0885 665 FAIL_ CHECK *es$_A ACCVIO™ 3; check failure 
0c DD 0885 PUSHL #SS$_ACCVIO 
O95D'CF 01 FB 0887 CALLS #1,W*REG_CHECK 
088C 666 ;+ 
O88C 667; 
088C 668 ; test non-existent channel number 
O88C 669 ; 
088C 670 ;:- 
088C 671 NEXT_TEST 
088C 
088C STP29 
0004'CF 1D 088C MOVL ogy. -W*CURRENT_TC 
00 OD 494 PUSHL 
0953'CF 01 893 CALLS #1 y are. SAVE 
0898 672 SDASSGN_S CHAN=UARBCH : release the channel 
Obad 67 $Q10W_ a stureatc MBCH 
AS 674 UNC=#10$ READVBLK, = 
OBAS 38675 ae 3 ws e 
BAS 978 P2= { 
+3 67 FAIL. CHECK ess _NOPR : check failure 
24 od OBE PUSHL ~ #SS$. NOPRIV 
095D'CF 1 FB gt CALLS #1 »W*REG_ CHECK 4 
O8CA 678 $Q10W_G W* i ee 
D 67 FAILLCHECK $5$_ at ; check failure 
a DD D PUSHL ~ “ESS NOPRIV 
095D'CF 1 FB D CALLS W*REG_ CHECK 4 
+ Bt s¢ 
DA 682 ; test illegal channel number 
| 
| 
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DA § 3 3 
DA 4 3° 
DA 685 NEXT_TEST 
DA STP30: 
QO04'CF 1 dO DA MOVL FiO CURRENT FE 
0 DD DF PUSHL 
O953'CF O1 FB E1 CALLS #1,w*REG_SAVE 
O1IBF'CF D4 E6 O86 CLRL w* ; set illegal channel number 
EA 6 $Q10W_S CHAN=W“MBCHAN,- 
EA 688 FUNC=#10$ READVBLK,= 
8 EA 689 P1=W*MBNAM, = 
ss 690 P2=#0 
909 691 FAIL_CHECK SS$_IVCHAN ; check failure 
0000013C 8F DD 0909 PUSHL — #SS$_IVCHAN 
095D'CF 01 FB O90F CALLS #1,W*™REG_CHECK 
OOES'CF D4 0914 69 CLRL — W*QI1OWP+Q10W$_CHAN ; set illegal channel number 
0918 69 $Q10W_G W*Ql0WP ; try .G 
0921 694 FAIL_CHECK SS$_IVCHAN ; check failure 
0000013C 8F DD 0921 PUSHL ~ #SS$_IVCHAN 
O95D°CF O01 FB 0927 CALLS #1,W"REG_CHECK 
092C 695 TEST_END 3 end the test 
O04C'CF DD 092C PUSHL W*TMD_ADDR 
0048'CF DD 0930 PUSHL W*TMN_ADDR 
02 OD 0934 PUSHL #2 
0044'CF DD 0936 PUSHL W*MOD_MSG_CODE 
00000000 ' GF 04 FB QO93A CALLS #$$T17G*LIBSSIGNAL 
0044'CF 01 1C 01 FO 0941 INSV #1, #STS$V_INHIB_MSG,#1,W*MOD_MSG_CODE 
044'CF DD 0948 PUSHL W*MOD_MSG CODE 
Q00000000'GF 01 FB 094C CALLS #1,G*SYSSEXIT 52 
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: FUNCTIONAL DESCRIPTION: 
; Subroutine to save R2-R11 in the register save location. 


3; CALLING SEQUENCE: 
PUSH # 3; save a dummy parameter 
CALLS #1,W*REG_SAVE ; save R2=-R11 


INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


REG_SAVE: 
«WORD “M<R2, R3 RG me R7,R8,R9,R10,R11> 
MOVC3 #4"10,°K14¢ (PS W°REG. SAVE_AREA ; save the registers in the program 


RE 
~SBTTL REG_CHECK 


- 
; FUNCTIONAL DESCRIPTION: 
Subroutine to test RO & R2-R11 for pro oe content after a service 


F 
OOO8'CF 14 AD 28 3 


SNS NNO Om 


execution. A G snapehes is taken by the REG_SAVE routine at the 
beginning of each step and this routine iS executed after the 


ree i : services have been executed. 
0 726 CALLING SEQUENCE : 
0 727 ; PUSHL  #SS$_XXXXXX : push expected RO contents 
ose ; CALLS #1,W*REG_CHECK ; execute this routine 
0 585 : INPUT PARAMETERS: 
8 ey 3 expected RO contents on the stack 
0 538 : OUTPUT PARAMETERS: 
8 os ; possible error messages printed using $PUTMSG 
0 736 3-- 
0 at 
0 738 REG_CHECK: 
OFFC QO 739 WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10, iy * 
50 O04 AC DI 740 CMPL 4(AP) ,RO ; iS oF ts the right fail code? 
13 74) BEQL 10$ : 
DD rs PUSHL RO ; ah ebcotved data 
04 DD 74 PUSHL Sees 3 push expected data 
00E5" tf OF 744 PUSHAL W*EXP ; push the string variable 
O9AS'CF O3 FB 2 108 CALLS #3 W*PRINT_FAIL 3; print the error message 
0008'CF 14 AD 4 3 F5 ; CMPCS «#4210,*X14(FP),W*REG_SAVE_AREA ; check all but RO 
748 BEQL s or 1 alee 
56 53 0000 gos" 4 c? S44 svel #REG_SAVE_AREA,R3,R6 ; calculate the register number 
0127'CF 81 751 ADDBS #*K2,R6,W*REGNUM ; put it in the string 
; CA 7 § BICL a3.Rf ; backup to register boundry 
3 CA 7 BICL #5,R3 


= 
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~SEP=1984 


1:4 
4:22: UETP.SRCJSATSSF17.MAR;1 
W*REGNUM ; push register number 
(R1) ; push received data 

(R3) 3 push expected data 

W*RE ; set string pntr param. 
#4,0*PRINT_FAIL ; print the error message 


PRINT_FAIL 


p++ 
; FUNCTIONAL DESCRIPTION: 
Subroutine to report failures using SPUTMSG 


SHL EXPECTED Mode #2 PUSHL REG_NUMBER 
PUSHL RECEIVED PUSHL EXPECTED 
PUSHAL STRING VA PUSHL RECEIVED 
CALLS #3,W*PRINT_FAIL PUSHAL STRING_VAR 
CALLS #4,W*PRINT_FAIL 


INPUT PARAMETERS: 
Listed above 


OUTPUT PARAMETERS: 
an error message is printed using SPUTMSG 


SQL 
NINN SIN NNIOAAAAOOAOOO 
Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se . 
i 
ag 
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7 
? 
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7 
7? 
? 
7 
7 
7 
? 
7? 
7? 
7 
? 
? 
? 
, 


WOO O00 O00 00000000 00 Co CD CD 0D 


“M<R2.R3,R4,R5> 

W°CS1,W"MESSAGEL ,W*MSGL ATEST_MOD_NAME ,W*SERV_NAME ,W*CURRENT_TC 
<#UETPS$_TEXT, #1, #MESSAGEL> ; print the message 

(AP) #4 ; is this a register message? 


; br if yes 
W*CS2,W*MESSAGEL,W*MSGL,4(AP),8(AP) .4 (APS. 12(AP) 
208 ; goto output message 


W*CS3,,W°MESSAGEL ,W*MSGL .4(AP),16(AP) ,8(AP) ,4( AP), 16(AP) ,12(AP) 


<#UETPS_TEXT,#1,#MESSAGEL> ; print the message 
w*TEST_MOD_FAIL,W*TMD_ADDR ; set failure message address 
#ERROR,#0,93,W*MOD_MSG_CODE ; set severity code 
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y042000 MOD_MSG_PRINT =SEP-1984 8 : 3:98 UETP. SRCJSATSSF17.MAR; 1 - 
AGC 197 sSBITL MOD_MSG_PRINT 
Aa £98 MOD_MSG_PRINT 
Aee BY : LARRRAASASLALALLALALALSELSALALEESELE SEE E ESE ESSE SESE SAE ESOLE SACO LESES SSS 
A s @ * 
yy Oe 3 * PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
BAee Bz i 3 . (USING THE PUTMSG MACRO). : 
ve: B2 i : LARRBRASAASLALASALAESASELESLESEEAESE SESE LESSEE EEE EEE EEE ESSERE EEC Cas 
A : 
OASC 807 PUTMSG <W*MOD_MSG_CODE.#2,W*TMN_ADDR, weTMD ADDR> ; PRINT MSG 
05 Ag 08 RSB Sean RETURN TO CALLER 
OA6 10 ° .SBTTL CHMRTN 
OA6 1] CHMRTN: 
Bae \¢ 3 LARRASBAAASLAAAALALASALASLEALASEASSLESLESESESERASESASESE SESS EE SELES SES 
OA62 «814: * CHANGE Ode ROUTINE , THIS ROUTINE GETS CONTROL WHENEVER « 
OA6b2 «815: * CHEXEC R_CMSUP SYSTER SERVICE IS ISSUED « 
OA62 «816: * MACRO ('TO' OPTIO IT MERELY DOES + 
OA6b2 «B17: * A JUMP INDIRECT ON A FIELD SE » BY MODE. IT HAS * 
OA62 «818 : * THE EFFECT OF RETURNING TO THE END OF THE MODE » 
OA6b2 «B19: * MACRO EXPANSION. « 
OA6 820 ; * * 
Bae Bee Hy IRARRAAARAAAASLASALASALASLASLELESEESE SESE SELES ESSER ERASERS ES ERE LEAS S 
0000 0A6 ; : .WORD 0 ; ENTRY MASK 
00000059'FF 17 DAG, 3 JMP @CHM_CONT ; RETURN TO MODE MACRO IN NEW MODE 
ry B58 : RET INSTR WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ....° MACRO 
OA6A «B28 * .END —- SATSSF17 
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Phase Page faults CPU Time Elapsed Time 
Initialization 7 00: 0:00.08 00:00: 9-36 
posnens processing 138 :00:00.70 0:00:03.69 
s 1 488 :00:20.48 0:0 oh 
Seabol table sort :00:02.1 0:00:0 23 
ass 2 18 : 8: 4.5 0:00:09. ; 
Symbol table output 1 :00.1 0:00: Bf 
peect syneesis oreut 3 0: 8°88 B: 0:00.04 
ross-reference ou :00:00. :00:00. 
Assembler run Setele. 87 0: 8; 3°99 8:00; 57:99 


The working set Limit was 1950 p 
126282 bytes (247 pages) of virtusl: memory were used to buffer the intermediate code. 
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Symbol table g- iets te 33:98 UETP.SRC SAT SSF17.MAR;1 . 8, vOé 

STP9 84 R 06 

STS$V_INHIB_MSG = 1¢ 

SUCCESS = 01 

SYSSCREMBX eeeeeeee GX 06 

SYSSDASSGN eeeeeeee GX 6 

SYSSEXIT eeeeenee GX 6 

SYSSFAO eeekeeee §=6X 6 

SYSSHIBER teeneeee GX 6 

SYS$QI10 eeeeeiee GX § 

SYS$Qi0W kkekeree GX 

SYSSSETPRN keekeene GX 6 

SYSSSETPRT tkeneeee GX 6 

SYSSWAKE eeekeeee GX 6 

TEST_MOD_BEGIN 00000019 R 02 

TEST_MCD_FAIL TS R 0 

TEST_MOD_NAME 000000 R 8 

TEST_MOD_NAME_D 00000009 R 

TEST_MOD_SUCC QOOOOOTF R 02 

TMD_ADDR at og RB 03 

TMN_ ADDR 00000048 R 03 

TPIB 00000000 R 03 | 

UETPS_ SATSMS = 007480D9 

UETPS$” TEXT = 00741133 

WARNING = 00000000 

er + 
! ;_Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes | 

»§ OS 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 00000000 <¢ 0.) O1¢ #1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

RODATA QOOOOOFD ¢ 253.) 8g ( ¢°} NOPIC USR CON REL LCL NOSKR NOEXE RD NOWRT NOVEC LONG 

RWDATA 00000191 (¢ 401.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR NOEXE'- RD WRT NOVEC LONG 

SATS_ACCVIO_1 00000200 (¢ 512.) 04 ¢( 4.) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC PAGE 

SATS_ACCVIO_2 00000200 ¢ S12.) 05 ¢( 5.) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC PAGE 

SATSSF17 QOOO0A6A ( 2666.) 06 ( 6.) USR CON REL LCL NOSHR' EXE~ RD WRT NOVEC LONG 

oa Sere mae nan ene rene nama me ae +e 

| 
| 
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VAX=11 Macro Run Statistics 


cz 
SATSSF17 - SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP- 1386 gis $1:08 AX/VMS_M 
-SEP=19 : 
There were 80 pages of symbol table space ee to hold 1387 non-local and 4 | 


ocal symbols. 
§ source Lines were read in Pass 1, producing 34 object records in Pass 2. 
pages of virtual memory were used to define 48 macros. 


SSO Eee eee Eee eee enaned 


Macro library name Macros defined 


“$255$DUA28 :{UETP a0ey JUETP.MLB;1 10 

Sseee $DUA ace: f DIL 18. ML B;1 6 
“$255$DUA aye TBSSTARL ES -MLB;2 3 
TOTALS (all Libraries) 45 


1663 GETS were required to define 45 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SATSSF17/0BJ=O0BJ$:SATSSF17 MSRC$:SATSSF17/UPDATE=(ENHS$: SATSSF 17) +EXECML$/LIB+L18$:UETP/LIB 


cro 
UETP.SRCJSATSSF17.MAR; 1 
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